home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / bench.arc / BENCH.BAS next >
Encoding:
BASIC Source File  |  1986-12-02  |  536 b   |  18 lines
  1. 1 'Creative computing: Ahl's simple benchmark:Output modified by John Mustain
  2. 2 CLS:PRINT "TEST EXECUTING
  3. 3 T1=VAL(RIGHT$(TIME$,2))
  4. 4 FOR N=1 TO 100: A=N
  5. 5 FOR I=1 TO 10
  6. 6 A=SQR(A): R=R+RND(1)
  7. 7 NEXT I
  8. 8 FOR I=1 TO 10
  9. 9 A=A^2: R=R+RND(1)
  10. 10 NEXT I
  11. 11 S=S+A:NEXT N
  12. 12 AC = ABS(1010-S/5)
  13. 13 RN = ABS(1000-R)
  14. 14 T2=VAL(RIGHT$(TIME$,2)):IF T2 < T1 THEN T2=T2+60
  15. 15 CLS:PRINT "Accuracy Measure";:PRINT USING ".############";AC
  16. 16 PRINT "Randomness Measure";: PRINT RN
  17. 17 PRINT "Execution Time";:PRINT T2-T1;:PRINT"seconds"
  18.